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Guida per l'input dei programmi versioni 
VIC 20 e C64 


Notate che i listati contengono 'paro¬ 
le' racchiuse tra parentesi graffe { f. 
Tali parole rappresentano caratteri di 
controllo come mostrato nel sotto¬ 
stante riquadro. Se sono precedute da 
un numero, questo indica il numero di 
volte che quel tasto deve essere pre¬ 
muto. Se il simbolo è sottolineato de¬ 
ve essere premuto contemporanea¬ 
mente a SHIFT mentre se è racchiuso 
da [<)] deve essere premuto con¬ 


temporaneamente al tasto COMMO¬ 
DORE. Inoltre, se tra parentesi graffa 
si trova un carattere alfabetico "so¬ 
litario’” questo dovrà essere pre¬ 
muto contemporaneamente al tasto 
CTRL 

Con questo sistema di codifica, sarà 
molto più agevole copiare i listati sen¬ 
za faticose e dubbie interpretazioni di 
caratteri grafici e di controllo del cur¬ 
sore o dei colori. 


(CLR} 

QUO ritom 

C 

{CYN} 

cn o 

m 

(<?>i 

HO 

□ 

{HOME} 


0 

{PUR} 

141.11 Q 

m 

1<8>) 

HO 

■ ■ 
■ ■ 

{SU} “ 

roroi fii4>i.m 

□ 

(GRN) 

I4i';?l Q 

□ 

{FI} 

m 


{GIU'} 

flIiHIII 

E 

(BLU) 

BEI Q 

B 

{ F2 } 

m 


{SIN} 


II 

(yel) 

141:71 Q 

SS 

{ F3 } 

OKI 


{DES} 


a 

[< 1>] 

aa 

□ 

{F4} 

m 

is 

{RVS} 

rrm q 

E 

[<2>] 

ao 

15 

(F5) 

an 

11 

{OFF} 

fnn □ 

■ 

t<3>] 

QO 

@ 

{ F6 } 

KXB 

SI 

{BLK} 

(230 

■ 

[<4>] 

HO 

H 

{F7} 

KB 

II 

{WHT} 

■ma Q 

[1 

1<5>] 

a a 

E 

(FBI 

OD 

■ 

{RED} 

Élffl Q 

& 

I<6>] 

GMJ 

■1 





Per ricevere gli arretrati di SiVtj'i compilare il seguente tagliando: 

K 

i Compilare ed inviare in busta chiusa a: 

J.SOTt viale Restelli, 5 - 20124 Milano - Tel. 02/6888228-683797-6880841-2-3 

Nome_ 


Cognome. 
Indirizzo- 
CAP_ 


Città . 


Prov. 


Desidero ricevere i seguenti numeri arretrati di 
- 


(Wifò ìi/'J'J dedicato a. 


a L. 2 000 cad per un totale di L 


. Anno. 
Anno_ 


a mezzo 


□ assegno allegato 

K 


□ contanti allegati 
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Stop Bus 

Se non l’hai già fatto, memorizza e 
salva su nastro o disco la versione 
di Stop Bug per il tuo computer. 
Questo programma ti permette, 
una volta caricato ed attivato con 
Run, di digitare i listati di Papersoft 
Commodore senza introdurre erro¬ 
ri di battitura. 

Come avrai notato, le linee dei no¬ 
stri programmi terminano con la 
parola '•rem " seguita da un nume¬ 
ro, detto checksum; non copiare 
questa parte della linea, che serve 
solo per tua informazione. Quan¬ 
do Stop Bug è in funzione, infatti, 
tutte le volte che premi il tasto Re¬ 
turn dopo aver digitato una linea 
di programma, appare nell'angolo 
superiore sinistro dello schermo un 
numero, che deve coincidere con 
il checksum da noi pubblicato 
(sempre che tu non abbia usato 


comandi abbreviati, come ? per 
Print). 

Usando Stop Bug tieni conto del 
fatto che gli spazi non influiscono 
sui checksum, per cui fai particola¬ 
re attenzione alle istruzioni Print 
dove sono spesso presenti. Inoltre 
eventuali inversioni di caratteri non 
vengono segnalate. 

Un altro metodo per utilizzare 
Stop Bug, soprattutto se sei abitua¬ 
to ad usare le abbreviazioni dei 
comandi Basic, è controllare i che¬ 
cksum listando il programma e bat¬ 
tendo Return su ogni linea. 

Se intendi sospendere il lavoro di 
digitazione, puoi salvare su nastro 
o disco il programma che stai me¬ 
morizzando senza che Stop) Bug 
interferisca; al momento di ripren¬ 
dere il lavoro ricordati però di cari¬ 
care ed attivare Stop Bug prima di 
ricaricare il tuo programma. 

Per disabilitare Stop Bug premi 
Run/Stop e Restore (su C64 e VIC 
20) oppure Run/Stop e Reset (su 
C16 e Plus/4). Per riattivarlo batti: 

SYS PEEK(56)*256 per il VIC 20; 
SYS 16128 per il CI 6 e il PLUS/4 ; 
SYS 40704 per il C 64. 
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STOP BUG per C64 e VIC 20 


100 POKE5 5,0 :POKE5 6,PEEK(56)-1:R=PEEK(56)* 256 :PRINT"{CLR} 
ATTENDERE PREGO..." 

110 FORI=RTOR+l32 : READA :CK=CK+A:IFA=999THENA=R/256 
120 POKEI,A :NEXT 

130 IFCK022689THENPRINT" {GIU ' }ERRORE NELLE ISTRUZIONI DA 
TA": END 

140 SYS(R):PRINT"{CLR}{ 2 GlU'}{RVS}STOP BUG{OFF} ATTIVAT 
O.":NEW 

2 00 DATAI 73,36,3,201 ,32,208,1 ,96,141 
210 DATA33,999,173,37,3,141,34,999,169 
220 DATA32,141,36,3,169,999,141,37,3 
2 30 DATAI 69,0,1 3 3,2 54,96,3 2,87,241 , 1 33 
240 DATA2 51 ,134,252,132,253,8,201 ,13,240 
2 50 DATAI 7,201 ,32,240,5,24,101 ,254,133 
2 60 DATA2 54,165,251 ,166,2 52,1 64,253,40,96 
270 DATAI 69,1 3,32,21 0,255,1 65,21 4,1 41 ,251 
280 DATA3,206,251,3,169,0,133,216,169 

2 90 DATAI 9,32,210,255,169,18,32,210,255 
300 DATAI 6 9,5 8,32,21 0,255,1 66,254,1 6 9,0 
310 DATAI 33,254,172,33,999,1 92,87,208,6 
320 DATA32,205,189,76,117,999,32,205,221 

3 30 DATAI 69,32,32,210,255,32,21 0,255,1 73 
340 DATA251,3,133,214,76,55,999 


STOP BUG per CI 6 e PLUS/4 

100 POKE55,0 :POKE56,63:PRINT"{CLR}ATTENDERE PREGO..." 

110 FORI = 1612 8T01 6 260 : READA:CK=CK+A:POKEI,A:NEXT 
120 IFCKOl 4 248THENPRINT" {GIU ' } ERRORE NELLE ISTRUZIONI DA 
TA": END 

130 SYS!6128:PRINT"{CLR}{ 2 GIU'}{RVS}STOP BUG{OFF} ATTIV 
ATO.": NEW 

20 0 DATAI 7 3,34,3,201 ,32,208,1 ,96,141 
210 DATA33,63,173,35,3,141 , 34,63,1 69 
220 DATA32,141,34,3,169,63,141,35,3 
2 30 DATAI 69,0,1 33,6,96,32,232,235,1 3 3 
240 DATA3,134,4,132,5,8,201,13,240 
2 50 DATAI 7,201,32,240,5,24,101,6,133 
260 DATA6,165,3,166,4,164,5,40,96 
2 70 DATAI 69,1 3,32,21 0,2 55,1 65,205,1 41 , 2 51 
280 DATA3,206,251,3,169,0,133,207,169 

2 90 DATAI 9,32,210,255,169,18,32,210,255 
30 0 DATAI 69,58,32,21 0,255,1 66,6,1 69,0 
310 DATAI 3 3,6,1 72,33,63,1 92,232,208,6 
320 DATA32,95,164,76,117,63,32,7,208 

3 30 DATAI 69,32,32,210,255,32,210,255,173 
340 DATA251,3,133,205,76,55,63 
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Corsa pericolosa 


m&m 


- 




Questo è un sioco in cui vi trovere¬ 
te alla suida di una favolosa auto¬ 
mobile da corsa,- la pista però è 
invasa da molte altre vetture e co¬ 
perta da macchie d'olio. Per tota¬ 
lizzare punti dovete passare col 
vostro bolide sui bersagli quadrati 
("bonus")'che compaiono di tanto 
in tanto sulla pista, ed evitare di 
uscire di strada e di scontrarvi con 
le altre auto: In tal caso, infatti, la 
partita terminerebbe. 

Quando si passa su un “bonus" il 
punteggio raggiunto compare nel¬ 
la parte sinistra dello schermo, di 


fianco alla pista. Man mano che si 
procede le auto e le macchie d'olio 
divengono sempre più numerose. 
Per muovere la vettura a sinistra e 
a destra si devono premere rispet¬ 
tivamente i tasti K e L. 

Il gioco, che gira su VIC 20 inespan¬ 
so, è diviso in due parti; la seconda 
deve venir salvata, chiamandola 
"C", subito dopo la prima. Chi usa 
il disk drive elimini la parola REM 
nella riga 230 del programma 1. Sia 
da nastro che da disco il carica¬ 
mento del programma 2 avviene 
automaticamente. 


Programma 1 


1 00 

POKE51,0 :POKE52,28 

: rem 

232 

1 1 0 

POKE36879,8 

: rem 

54 

1 20 

GOSUB670 

: rem 

1 76 

130 

FORX = 0TO51 1 

: rem 

1 22 

1 40 

POKE7168+X,PEEK(327 68+X) 

: rem 

76 

150 

NEXT 

: rem 

213 

1 60 

POKE36869,2 55:POKE36866,PEEK(36866)ORI 28 

: rem 

255 

170 

GOSUB260 

: rem 

1 76 

1 80 

PRINT"{ 2 GIU' }{CYN}* * * PREMI LA BARRA ***" 

: rem 

1 53 

1 90 

GETA$: IFA$<>" "THEN190 

: rem 

1 48 

200 

POKE 36869,240:POKE36866,150 

: rem 

203 

21 0 

PRINT"{CLRjCARICAMENTO IN CORSO{BLK}" 

: rem 

202 

220 

PRINT"{HOME}{ 3 GIU'}NEW":PRINT"{ 2 GIU'jLO 

"CHR$(34)" 


C"CHR$(34); 

: rem 

1 7 

230 

REM PRINT",8" 

: rem 

1 74 

240 

PRINT"{HOME}":POKEl98,5:POKE631,13:POKE632, 

13:POKE633 


,82 :POKE634,1 1 7:POKE635,1 3 

: rem 

10 

250 

END 

: rem 

1 1 0 

260 

REM ELABORAZIONE DATI CARATTERI 

: rem 

1 84 

270 

READX:X = 7168+X* 8 

: rem 

1 51 

280 

IFX< 7000THEN RETURN 

: rem 

1 47 

290 

READA$:IFLEN(A$)=8THEN350 

: rem 

1 82 

300 

POKEX,VAL(A$) 

:rem 

223 

310 

FORY =1TO 7 

: rem 

28 
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320 

READA:POKEX+Y,A 


: rem 

1 64 

330 

NEXT 


: rem 

21 3 

340 

GOTO 260 


: rem 

1 04 

350 

GOSUB400 


: rem 

1 72 

360 

FORX=X+lTOX+6 


: rem 

37 

370 

GOSUB390:NEXT 


: rem 

47 

380 

GOTO260 


: rem 

1 08 

390 

READA$ 


: rem 

29 

400 

A= 0 :FORY = 1TO 8 


: rem 

5 

41 0 

A=A* 2-(MID$(A$,Y,1) ="*") : NEXT 


: rem 

232 

420 

POKEX,A 


: rem 

1 38 

430 

RETURN 


: rem 

1 19 

440 

REM DATI CARATTERI 


: rem 

61 

450 

DATA0,1 53,255,1 65,60,60,1 89,2 55 

,129 

: rem 

1 86 

460 

DATA27,! 29,2 55,1 89,60,60,1 6 5,2 55,1 53 

: rem 

244 

470 

D ATA 28,255,129,1 89,1 65,1 65,1 89, 

129,255 

: rem 

107 

480 

DATA29,255,255,255,255,255,255, 

255,255 

: rem 

97 

490 

DATA30,255,1 27,63,31 ,1 5,7,3,1 


: rem 

1 26 

500 

DATA31,128,192,224,240,248,252, 

254,255 

: rem 

70 

510 

DATA33,255,254,252,248,240,224, 

192,128 

: rem 

73 

520 

DATA34,1 ,3,7,15,31,63,127,255 


: rem 

1 24 

530 

DATA35,240,1 92,1 31 ,2,2,1 31 , 1 92, 

240 

: rem 

1 08 

540 

DATA36,0,0,212,84,84,215,0,0' 


: rem 

65 

550 

DATA37,1 5,3,1 ,0,0,1 29,3,1 5 


: rem 

221 

560 

DATA 38 


: rem 

32 

570 

DATA...**_ 


: rem 

30 

580 

DATA..****.. 


: rem 

23 

590 

DATA.*.**.*. 


: rem 

24 

600 

DATA*.****.* 


: rem 

8 

610 

DATA.*.**.*. 


: rem 

1 7 

620 

DATA..****.. 


: rem 

1 8 

630 

DATA-** . . . 


: rem 

27 

640 

DATA...**... 


: rem 

28 

650 

DATA-99 


: rem 

84 

660 

REM ISTRUZIONI 


: rem 

1 60 

670 

PRINT"{CLR}{YEL}{ 3 SPAZI}CORSA 

PERICOLOSA" : rem 

8 

680 

PRINT"{ 3 SPAZI}- 

II 

: rem 

63 

690 

PRINT"{ 2 GIU 1 }{GRN}USA I TASTI 

'K' E ' 

L' {GIU'}PER G 


UIDARE L'AUTO ({RED}[{GRN}){GIU 

'}LUNGO 

LA STRADA. 





: rem 

88 

700 

PRINT"{GIU'}PASSA SUI BERSAGLI 

({RED}£{GRN}){GIU’ 

} PER 


RICEVERE PUNTI ED {GIU'jEVITA 

LE ALTRE 

: AUTO ({RED }@ 


{GRN})" 

< 

: rem 

1 5 

71 0 

RETURN 


: rem 

1 20 


Programma 2 

100 POKE36879,8 :rem 53 

110 PRINT"{CLR}{YEL}{RVS}{ 3 SPAZI}CORSA PERICOLOSA 

{ 3 SPAZI}" : rem 15 

120 FORI=1T03000:NEXT :rem 16 
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130 

140 

1 50 

160 

1 70 

1 80 

1 90 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

41 0 

420 

430 

435 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 


51 

1 38 

1 74 

1 78 

161 

1 31 

32 

55 

49 

206 

5 

21 1 

82 

72 

105 

1 73 

64 

25 

208 

26 

72 

252 

1 05 

8 

91 

21 

223 

221 

1 2 

79 

25 

1 02 

252 

210 

1 1 3 

255 

210 

236 

42 

1 55 

119 

119 

1 

195 

201 

1 92 

95 

1 85 


DIMX,A : rem 

DIMR$(2),0$(2) :rem 

GOSUB530 : rem 

GOSUB470 :rem 

L=L-1:IFLTHEN200 :rem 

L=INT(RND(1)* 5)+5 :rem 

D=SGN(D+INT(RND(1)* 3)-1) :rem 

IFT+D>10ORT+D<4THEND=0 :rem 

T=T+D:POKES1,1 : rem 

POKEY,29:POKEY-P+Q,4 :rem 

PRINTTAB(T)R$(D+l ) :rem 

IFRND(1)>CTHEN260 :rem 

PRINTTAB(T+2+RND(8)*7)"{SU}"0$(RND(1)*3) :rem 
Y=Y+(PEEK(K)=44)-(PEEK(K)=21) :rem 

0=PEEK(Y):POKEY,27:POKEY-P+Q,7 :rem 

POKES1,4 : rem 

IFO=OORO=32THEN360 :rem 

IF0028THEN320 :rem 

S=S+1:PRINT"{SU}{YEL}{RVS}"S"{OFF}{PUR}":C=C+.015 

: rem 

IFO<=34THEN350 :rem 

IFO>=ASC("&")THEN350 :rem 

POKEY,38:Y=Y+INT(RND(1)*3)-1:0=PEEK(Y) :rem 

GOTO170 : rem 

IFS>HTHENH=S :rem 

FORX=l5TO1STEP-1:POKES!,X :rem 

POKES2,128+X*(15-X):FORA=1TO50:NEXTA,X :rem 

PRINT"{WHT}{RVS} PUNTI"S"- RECORD"H :rem 

PRINT"{GIU'}{ 2 SPAZI}'G'{ 2 SPAZI}PER GIOCARE 
{ 6 SPAZI}'S'{ 2 SPAZI}PER SMETTERE" :rem 

POKES1,0:POKES2,0:FORI=ITO3000:NEXT:POKEl98,0 

: rem 

GETA$: IFA$ = ""THEN420 :rem 

IFA$ = "G"THEN160 :rem 

IFA$<>"S"THEN 420 :rem 

PRINT"{CLR}" : rem 

POKE36869,240 :POKE36866,1 50 :rem 

END :rem 

PRINT"{CLR}" : rem 

T=10:C=.l:O=29:S=0 :rem 

Y=7845:L=3:D=0 :rem 

FORX=1TO 22 :PRINT,"{SIN}{PUR}"R$(1):NEXT :rem 

POKE36877,128 :rem 

RETURN :rem 

REM INIZ. VARIABILI :rem 

POKE36869,255:POKE36866,PEEK(36866)ORI 28 :rem 
P=7680:Q=38400 :rem 

K=197:H=0:S1=36878:S2=36877 :rem 

RESTORE :rem 

R$(0)=CHR$(34)+"]]]]]]]]]!" : rem 

R$ (1)="]]]]]]1]]]" : rem 
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600 R$(2)="{SIN}t]]]]]]]]] * : rem 175 

610 0$ (0)="{SIN}#$%”:0$(1)="{WHT}@{PUR}": 0$(2)="{YEL}£ 

{PUR}" :rem 237 

620 RETURN :rem 120 


Mine nascoste 



3K RAM 


Il povero Joe si è cacciato ancora 
una volta nei pasticci: si è lanciato 
- da un aereo col paracadute ed è 
caduto proprio in mezzo ad un 
campo minato. 

A voi il compito di guidarlo verso 
la porticina posta nell'angolo in 
basso a destra dello schermo. 
Naturalmente Joe è stato previ- 
" dente ed ha portato con se un de¬ 
tector di mine; con il quale potrete 
cercare di evitare le pericolose 
bombe nascoste. 

Esso vi segnala mediante delle 
scritte e dei suoni la vicinanza di 
mine. 

Se siete vicini ad una o più mine di 
due passi, esso vi avvisa con un 
suono grave e scrive nella parte 
bassa dello schermo il numero di 
mine vicine a voi e il numero di 
passi che vi separano da esse. 
Inoltre un suono più acuto vi indica 


che distate un solo passo da una 
mina. Se camminerete sopra una 
mina, essa esploderà e il computer 
vi mostrerà la posizione delle altre 
mine. 

Se invece arriverete sani e salvi alla 
porticina il computer vi informerà 
ugualmente della posizione delle 
mine, e vi farà passare ad un altro 
campo minato, con due mine in 
più. 

Dopo che il gioco è terminato è 
possibile riprovare, premendo un 
tasto qualsiasi, o smettere, pre¬ 
mendo “E". 

Per muovervi dovrete utilizzare i 
seguenti tasti: 

7 8 9 
4 6 

1 2 3 

Questo fantastico gioco gira su VIC 
20 solo con espansione di 3K. 


1 0 

POKE900,10 

: rem 

1 82 

20 

POKE56,PEEK(56)-1:CLR:POKE56,PEEK(56)+1 

: rem 

191 

30 

DIMA$ (19,18) 

: rem 

242 

40 

POKE36879,42 :PRINT"{CLR}" 

: rem 

21 2 

50 

GOSUB1430 

: rem 

1 73 

60 

POKE56,PEEK(56)-1 

: rem 

1 07 

70 

POKE36 8 69,2 55 

: rem 

1 1 0 

80 

FORI=1TO19 

: rem 

1 9 

90 

FORJ = 1TO18 

: rem 

20 
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1 00 

1 1 0 

1 20 

1 30 

1 40 

1 50 

160 

1 70 

1 80 

1 90 

200 

710 

20 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 


226 

27 

27 

22 

229 

166 

167 

38 

151 

9 

204 

27 

1 80 

1 47 

90 

1 4 

35 

165 

221 

1 31 

1 1 5 

215 

221 

21 7 

1 41 

219 

200 

221 

1 72 

1 46 

1 06 

1 02 

223 

1 1 4 

229 

74 

1 43 

1 54 

198 

21 2 

1 05 

210 

107 

77 

1 09 

1 00 


A$(I,J)="{GRN} = " : rem 

NEXTJ : rem 

NEXTI : rem 

REM POSIZIONA LE MINE IN POSTI CASUALI :rem 

FORI=lTOPEEK(900) :rem 

X%=RND(1)*19+1 : rem 

Y% = RND(1)* 18 + 1 : rem 

IFA$(X%,Y%)="{YEL}>"THEN150 :rem 

IFX%= 1 ANDY%='1 THENl 50 __ :rem 

IFX%=19ANDY%=18THEN150 * :rem 

A$(X%,Y%)="{YEL}>" : rem 

NEXTI : rem 

A$(1 , 1 ) ="{GRN} = " : rem 

A$(19,18)="{BLK}8" : rem 

PRINT"{CLR}{RVS}{WHT}{ 2 SPAZI}N[<V>] DI MINE 
{ 2 SPAZI}= ";PEEK(900) :rem 

REM STAMPA IL CAMPO MINATO :rem 

CL=2:NO=l9:Z$="{GRN}=":T$="H" :rem 

FORRW = 2TOl9 : rem 

GOSUBl020 : rem 

NEXT RW :rem 

CL=0:NO=21:RW=0:Z$="{RVS}{BLU}[<+>]{OFF}":T$="H" 

: rem 

GOSUBl020 : rem 

RW=20 :rem 

GOSUBl 020 : rem 

CL=0:NO = l9 :RW=1:Z$ = "{RVS}{BLU}[<+>] {OFF}":T$ = "V" 

: rem 

GOSUBl020 : rem 

CL=21 :rem 

GOSUBl020 :rem 

X% = 1:Y% = 1 :rem 

CL=20:RW=19 :T$ = "H":NO = l:Z$ = "{BLK}8":GOSUBl020 

: rem 

PRINT"{WHT}" : rem 

GOTO710 : rem 

GOSUBl 350 : rem 

PRINT"{BLK}?"; : rem 

GOSUBl750 : rem 

GG=VAL(GG$) : rem 

IFGG<1ORGG>9THEN420 :rem 

AA%=X%:BB%=Y% : rem 

ON GG GOTO 490,510,530,550,570,580,600,620,640 

: rem 

XX%=X%-1:YY%=Y%+1:CR$="{SIN}{GIU'}" :rem 

GOTO650 :rem 

XX%=X%:YY%=Y%+1:CR$="{GIU'}" :rem 

GOTO650 :rem 

XX%=X%+1:YY%=Y%+1:CR$="{DES}{GIU'}" :rem 

GOTO650 : rem 

XX%=X%-1:YY%=Y%:CR$="{SIN}" :rem 

10 ' 


560 

GOTO650 



: rem 

1 11 

570 

GOTO420 



: rem 

107 

580 

XX%=X%+1:YY%=Y%:CR$="{DES}” 



:rem 

229 

590 

GOTO650 



: rem 

1 1 4 

600 

XX%=X%-1:YY%=Y%-1:CR$="{SU}{SIN}" 


: rem 

79 

610 

GOTO650 



: rem 

1 07 

620 

XX% = X%:YY% = Y%-1 :CR$ = "{SU}" 



: rem 

86 

630 

GOTO650 



: rem 

1 09 

640 

XX%=X%+1:YY%=Y%-1:CR$="{SU}{DES}" 


: rem 

209 

650 

IFXX%<1ORXX%>19THEN420 



: rem 

79 

660 

IFYY% <1ORYY% >18THEN42 0 



: rem 

83 

670 

X%=XX%:Y%=YY% 



: rem 

248 

680 

CL=1+AA%:RW=1+BB%:T$ = "H" : Z$ = " 

{WHT}= 

{HOME}" 

: rem 

1 55 

690 

GOSUB1020:A$(AA%,BB%)="{WHT}= 

II 


: rem 

1 7 

700 

REM CONTROLLA LA DISTANZA DEL 

GIOCATORE DALLE MINE 





: rem 

1 7 

710 

IFA$(X%,Y%)="{YEL}>"THEN870 



: rem 

47 

720 

A$(X%, Y%)="{BLK}?" 



2 rem 

198 

730 

IFX%=19ANDY%=18THEN830 



2 rem 

1 4 

740 

REM CONTROLLA LE LOCAZIONI A 

UN PASSO DAL 

GIOCATORE 





: rem 

62 

750 

MS%=1 :GOSUB1170 



: rem 

82 

760 

IFMNOOTHEN 790 



: rem 

64 

770 

REM CONTROLLA LE LOCAZIONI A 

DUE PASSI DAL 

GIOCATORE 





: rem 

1 1 8 

780 

MS% = 2:GOSUBl170 



: rem 

86 

790 

REM RESETTA IL CURSORE 



: rem 

84 

800 

GOSUBl350 



: rem 

225 

810 

GOTO420 



: rem 

1 04 

820 

REM PROSSIMO CAMPO MINATO 



: rem 

50 

830 

CL=0:NO = 1:RW = 21 :T$ = "H" 



: rem 

218 

840 

Z$="{RVS}{WHT}PREMI UN TASTO 

PER IL 

PROSSIMO CAMPO 

i MI 


NATO" 



: rem 

1 41 

850 

GOSUBl020 



: rem 

224 

860 

A$ (19,18)="{BLK}8": GOTO 900 



: rem 

168 

870 

REM LA MINA ESPLODE 



: rem 

65 

880 

GOSUBl600 :POKE900,8 



: rem 

77 

890 

A$(X%,Y%)="{YEL}9" 



: rem 

214 

900 

FORY=1TO18 



: rem 

83 

910 

X% = 1 :Y%=Y:GOSUBl350 



: rem 

86 

920 

FORX=1TO19 



: rem 

85 

930 

PRINT"{OFF}"A$(X,Y); 



: rem 

205 

940 

NEXTX 

* 


: rem 

52 

950 

NEXTY 



: rem 

54 

960 

GETGG$:IFGG$=""THEN960 



: rem 

251 

970 

IFGG$< >"E"THENl000 

* 


: rem 

212 

980 

POKE56,PEEK(56)+1 :POKE36869,240 


: rem 

223 

990 

POKE36879,27 :PRINT"{CLR}{BLU} 

" : END 


: rem 

69 

1000 POKE900,PEEK(900)+2 



: rem 

33 

1010 POKE56,PEEK(56)+1 : GOTO20 



: rem 

1 54 
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1 020 

1030 

1040 

1050 

1 060 

1 070 

1080 

1090 

1100 

ino 

1 1 20 

11 30 

1 1 40 

1 1 50 

1160 

1 1 70 

1 1 80 

1 190 

1 200 

1210 

1220 

1230 

1240 

1 250 

1 260 

1 270 

1 280 

1 290 

1 300 

1310 

1 320 

1 330 

1 340 

1 350 

1360 

1370 

1 380 

1 390 

1 400 

1410 

1 420 

1430 

1440 

1 450 

1460 

1 470 

1 480 

1 490 


REM 

O 

REM 

REM 

REM 


SUBROUTINE PER STAMPARE UNA STRINGA SULLO SCHERM 


CL=COL. DI PARTENZA/RW=RIGA DI PARTENZA 
NO=N. DI CARATTERI/T$=V(VERT)H(ORIZZ) 
Z$=TESTO DA STAMPARE 
PRINT"{HOME}" 

IFCL=0THEN1090 

FORI = 1TOCL-1 :PRINT"{DES}";:NEXTI 
IFRW=0THEN1110 

FORI = 1TORW-1 :PRINT"{GIU':NEXTI 
IFT$="H"THENI$="" 

IFT$ = "V"THENI$ = "{GIU' }{SIN}" 

FORI=1TONO 
PRINTZ$; I$ ; 

NEXT 
RETURN 

REM CONTROLLA SE CI SONO MINE NEI DINTORNI 
MN=0 

FORI=X%-MS%TOX%+MS% 

FORJ =Y%-MS%TOY%+MS% 

IFI<1ORJ <1THEN1240 
IFI>190RJ>18THEN1240 
IFA$(I,J)="{YEL}>"THENMN=MN+1 
NEXTJ 
NEXTI 

Z$ = "{RVS}{ 28 SPAZI}{OFF}" 

IFMN< =0THENl320 

Z$="{RVS}{WHT} "+STR$(MN):IFMN>1THENZ$=Z$+" 
TOl300 

Z$=Z$+" MINA" 

Z$ = Z$ + " A"+STR$(MS%) :IFMS%>1THENZ$ = Z$+" PASSI 
320 

Z$=Z$+" PASSO" 

CL=0:NO=1:RW=21 :T$ = "H" 

GOSUBl020 
RETURN 

REM POSIZIONE DEL CURSORE NEL CAMPO MIN. 

REM X%=POS.X/Y%=POS.Y 
PRINT"{HOME}"; 

FORI=lTOX%+l:PRINT"{DES}";:NEXTI 
FORI=1TOY%+l:PRINT"{GIU'}";:NEXTI 
PRINT"{SIN}"; 

RETURN 

REM INIZIALI ZZA I CARATTERI GRAFICI 
FORI=ITO9 
READX 
FORJ=0TO7 
READK 
POKEX+J,K 
NEXTJ,I 
RETURN 


rem 

1 51 

rem 

1 56 

rem 

46 

rem 

214 

rem 

1 71 

rem 

76 

rem 

28 

rem 

97 

rem 

35 

rem 

1 76 

rem 

1 09 

rem 

1 63 

rem 

1 80 

rem 

6 

rem 

1 68 

rem 

42 

rem 

210 

rem 

1 83 

rem 

1 78 

rem 

87 

rem 

205 

rem 

37 

rem 

80 

rem 

80 

rem 

1 08 

rem 

1 46 

MINE 

" :GO 

rem 

31 

rem 

1 53 

II" :GOTOl 

rem 

1 52 

rem 

243 

rem 

5 

rem 

10 

rem 

168 

rem 

198 

rem 

67 

rem 

234 

rem 

1 1 

rem 

1 

rem 

no 

rem 

1 66 

rem 

214 

rem 

66 

rem 

61 

rem 

66 

rem 

50 

rem 

63 

rem 

203 

rem 

1 74 
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1 500 

1510 

1 520 

1 530 

1 540 

1 550 

1 560 

1570 

1 580 

1 590 

1600 

1610 

1620 

1630 

1 640 

1 650 

1660 

1 670 

1680 

1690 

1700 

1710 

1 720 

1 730 

1740 

1 750 

1 760 

1 770 

1 780 

1790 

1 800 

1810 

1 820 

1 830 

1 840 

1 850 

1 860 

1 870 

1 880 

1 890 

1 900 

1910 

1 920 

1 930 

1 940 


1 07 

1 46 

1 68 

40 

191 

32 

199 

4 

161 

1 47 

1 72 

198 

1 2 

1 29 

81 

77 

34 

30 

1 79 

1 9 

56 

84 

1 00 

1 02 

1 72 

1 33 

162 

91 

1 76 

34 

234 

1 55 

1 35 

1 30 

1 47 

1 1 7 

92 

92 

1 06 

1 68 

86 

207 

103 

1 02 

1 74 


REM DATI CARATTERI ;rem 
DATA7424,0,0,0,0,0,0,0,0 :rem 
DATA7656,0,12,12,0,96,102,6,0 :rem 
DATA7664,60,66,153,1 65,1 65,1 53,66,60 :rem 
DATA7672,28,28,8,62,8,20,34,0 :rem 
DATA7624,!53,90,60,255,255,60,90,153 :rem 
DATA7632,! 46,8 4,56,2 54,56,8 4,1 46,0 :rem 
DATA7640,0,0,0,24,24,0,0,0 trem 
DATA7648,0,0,0,0,0,0,0,0 :rem 
DATA7616,20,44,68,254,68,68,124,0 :rem 
REM ESPLOSIONE :rem 
POKE36877,220 :rem 
FORL=l5TO0STEP-1 :rem 
POKE36878,L :rem 
IFL=15THENZ$="{YEL}<" :rem 
IFL=11THENZ$="{YEL};" :rem 
IFL=7 THENZ$="{YEL}:rem 
IFL=3 THENZ$="{YEL}9" :rem 
CL=1+X%:RW=1+Y%:NO=l :rem 
GOSUBl020 : rem 
FORM=lTO50:NEXTM trem 
NEXTL : rem 
POKE36877,0 treni 
POKE36878,0 * treni 
RETURN : rem 
REM CONTROLLA LA TASTIERA E SUONA L'ALLARME:rem 
IFMNO0THEN1 79 0 trem 
GETGG$:IFGG$=""THENl770 trem 
RETURN ' : rem 
IFMS%=2THENSH=180:SL=128:GOTO1810 :rem 
SL=180 :SH=235 :rem 
POKE36878,15 :rem 
FORM=SLTOSHSTEP2 trem 
POKE36876,M :rem 
GETGG$:IFGG$<>""THENl920 :rem 
FORN=lTOl0 trem 
NEXTN trem 
NEXTM trem 
POKE36876,0 trem 
FORM=lTOl00 trem 
NEXTM trem 
GOTO1820 trem 
POKE36878,0 trem 
POKE36876,0 trem 
RETURN trem 
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CI6&- plus/4 


New York 


Questo originale e divertente gio¬ 
co vi permette di osservare New 
York da un elicottero e di regolarne 
il traffico. All'inizio vedrete tutte le 
strade deserte, ma poco per volta 
esse si popoleranno di automobili. 
Il vostro compito sarà quello di di¬ 
rigere efficacemente il caotico traf¬ 
fico della metropoli. Quando 
un'automobile, rappresentata da 
un rettangolino nero, raggiunge 
uno dei semafori, raffigurati invece 
da lettere e numeri, si ferma se il 
semaforo è rosso, oppure attraver¬ 
sa l'incrocio se il semaforo è verde. 
Per modificare il colore del semafo¬ 
ro dovete premere il tasto corri¬ 


spondente al simbolo che lo rap¬ 
presenta. 

All'inizio del gioco avete 100 pun¬ 
ti. Guadagnate 10 punti ogni volta 
che un veicolo attraversa un incro¬ 
cio e 25 punti se un’automobile at¬ 
traversa tutta la città. Se due vettu¬ 
re si scontrano ad un incrocio per¬ 
dete 100 punti e la strada rimane 
temporaneamente bloccata. Il vo¬ 
stro punteggio diminuisce anche in 
proporzione al numero di auto fer¬ 
me in coda ai semafori. Se restate 
con zero punti la partita ha termi¬ 
ne, altrimenti il gioco dura 5 minuti. 
Più punti otterrete, più brillante sa¬ 
rà la vostra carriera di vigile! 


10 REM 'NEW YORK :rem 116 

20 COLORO,2:COLOR4,2,3 :rem 25 

30 A=RND(-TI):TI$="000000":TB=TI:PU=100 :rem 211 

40 PRINT"{CLR}{BLU}[< 6 +>] - [< 22 +>] - [< 6 +>]"; 

:rem 232 

50 PRINT"[< 6 +>]A- [< 22 +>]B^ [< 6 +>]"; :rem 186 

60 PRINT"{ 7 SPAZlJ^ C{ 5 SPAZI}[<R>] D{ 5 SPAZI}[<R>] E 
{ 6 SPAZI}- F{ 5 SPAZI}"; :rem 162 

70 PRINT"{ 7 C}+{ 7 C}+{ 7 C}+{ 8 C}+{ 7 C}"; :rem 75 

80 PRINT" { 5 SPAZI }G -J 5 SPAZI }H ■-{ 5 SPAZI }l - 

{ 6 SPAZI}J -{ 7 SPAZI}"; : rem 10 

90 PRINT" [< 6 +>] ■ l K[< 5 +>] ^L[< 5 +> ] - M [ < 6 +>] -N 

[< 6 +>]"; : rem 67 

100 A$ = " [< 6 +>] - [< 5 +>] - [< 5 +>] - [< 6 +>] - 

[< 6 +>]":PRINTA$A$A$; :rem 68 

110 PRINT" [< 6 +> ] 0-_ [< 5 +>]P^ [< 5 +>]Q- [< 6 +>]R- 

[< 6 +>]"; :rem 124 

120 PRINT"[< 6 +>] ^ S{ 5 SPAZI}- T{ 5 SPAZI}- U 

{ 6 SPAZI}- [< 6 +>]"; : rem 215 

130 PRINT"[< 6 +>] [<Q>] + { 7 C}+{ 7 C} + { 8 C}+[<W>] 

[< 6 +>]"; : rem 244 

140 PRINT"[< 6 +>] -{ 5 SPAZI}V 5 SPAZI}W -{ 6 SPAZI} 

X - [< 6 +>]"; : rem 226 
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1 50 

1 60 
1 70 

1 80 

1 90 
200 

210 

220 

230 

240 

250 

260 

270 

280 

290 
300 
31 0 

320 

330 

340 

350 

360 

370 

380 

390 

400 

41 0 
420 
430 

440 

450 

460 

470 

480 

490 

500 


PRINT" [< 6 +>] -Y[< 5 +>] -Z,[< 5 +>] -0[< 6 +> ] -1 
[< 6 +>]"; :rem 82 

PRINTA$A$A$ :rem 83 

PRINT"[< 6 +>]2- [< 5 +>]3- [< 5 +>]4- [< 6 +> ] 5- 

[< 6 +>]"; :rem 14 

PRINT"{ 7 SPAZI}- 6{ 5 SPAZI}- 7{ 5 SPAZI}- 8 
{ 6 SPAZI}- 9{ 5 SPAZI}"; :rem 247 

PRINT"{ 7 C}+{ 7 C}+{ 7 C}+{ 8 C}+{ 7 C}"; :rem 126 

PRINT"{ 5 SPAZI}+ -T 5 SPAZI}£ [<E>]{ 5 SPAZI}@ [<E>] 


{ 6 SPAZI}* -{ 7 SPAZI}"; 




: rem 

1 71 

PRINT"[< 6 +>] —[< 22 +>] 

-=[< 

6 

+>]"; 

: rem 

207 

PRINT"[< 6 +>] - [< 22 + >] 

- [< 

6 

+> ] " ; 

: rem 

1 02 

PRINT"[< 6 +>] - [< 22 +>] 

- [< 

6 

+>]{HOME}" 

, 






: rem 

1 22 

AW=40:SC%=3071:CL=2047 




: rem 

1 59 

DIMX%(AW),Y%(AW),R%(AW),L%(41), 

A% (3) ,F%(9) 

:rem 

1 28 

FORI=0TO41:READL%(I):NEXT 




: rem 

23 

DATA47,72,90,98,106,115,166 

,174 

,182,191,209, 

217,: 

225,2 

34,367,375,383,392 




: rem 

204 


DATA410,418,426,494,502,511,529,537,545,554,687,695,7 


03,712 

: rem 

1 33 

DATA730,738,746,755 

: rem 

1 83 

DATA806,81 4,82 2,831 ,849,8 74 

: rem 

68 

FORI=0TO41:A=PEEK(L%(I)+SC%):POKEL%(i; 

1+SC%,AORl28 



: rem 

91 

POKEL%(I)+CL,50 :NEXT 

: rem 

1 47 

A%(0)=1:A%(1)=-l:A%(2)=40:A%(3)=-40 

: rem 

94 

DEFFNR(X)=INT(RND( 1 )*X) 

: rem 

86 

FORI=0TOAW:R%=R%(I):IFR%=0THEN450 

:rem 

228 

X%=X%(I):Y%=Y%(I) 

: rem 

1 1 9 


IFR%AND1THENX% = X% +1:F%=98:O0% = 226:O% = 64:S% = 40:IFX%>40 
THEN480 : rem 201 
IFR%AND2THENX%=X%-1:F%=226:00%=98:0%=64:S%=-40:IFX%<1 
THEN480 : rem 197 
IFR%AND4THENY%=Y%+1:F%=97:00%=225:0%=93:S%=-1:IFY%>23 
THEN4 80 : rem 204 
IFR%AND8THENY% = Y%-1:F% = 225:00% = 97:0%=93 :S%=1 :IFY%<0TH 


EN480 

IFR%ANDl6THEN460 
IFR%AND32THEN570 
IFR%AND64THENO%=91:R%= 


: rem 
: rem 
: rem 

R%-64:R%(I)=R%:PU=PU+10 

: rem 
: rem 
: rem 


GOTO490 
NEXT:GOTO660 

IF(PEEK(X%(I)+40*Y%(I)+S%+CL)ANDl5)<>2THENR% 
3 2)ANDNOTl6 : GOTO 49 0 
PU=PU-1: GOTO450 

PU=PU+25:PN=PN+1:R%(I)=0:P%=-1:GOTO540 
P%=X%+40*Y%:PS%=PEEK(P%+SC%):IFPS%=F%ORPS%=1 
PU-1:GOTO450 

A=PEEK(P%+S%+SC%):IFA<>32THENR%(I)=R%ORl6 


1 02 
1 58 
1 59 

1 08 
110 
231 
(I)=(R%OR 
: rem 160 
:rem 140 
:rem 210 
60THENPU= 
: rem 169 
: rem 108 
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60 


51 0 
520 


IFPS%=00%THENF%= 1 60 
V%=PEEK(X%(I)+40*Y%(I)+SC%) 


: rem 

IFV%=160THENO%=00% 

:rem 47 

530 IFV%=102THENR%(I)=0:AO=AO + l:PU=PU-100 : GOTO450 

: rem 157 

540 POKEP%+SC%,F % :POKEP%+CL,0 :rem 174 

550 IFO% = 640R0% = 930R0% = 91THENPOKEX%(I)+40*Y%(I)+CL,70 

:rem 81 

560 POKEX%(I)+40*Y%(I)+SC%,0%:X%(I)=X%:Y%(I)=Y%: GOTO 450 




: rem 

92 

570 

P%=X%+40*Y%:A=PEEK(P%+SC%):IFA=F%THEN450 

: rem 

5 

580 

IFA091 THEN640 

: rem 

26 

590 

VB=0:FORJ=0TO3:A=2TJ:B=PEEK(P%+SC%+A%(J)) 

: IFNOT(B 

= 640 


RB= 93)THENVB=VBORA 

: rem 

1 51 

600 

NEXT 

: rem 

21 3 

610 

B=2tFNR(4) :IF(BANDVB)=0THENR%(I)=BOR64: GOTO 540 




: rem 

27 

620 

IFVB=15THEN450 

: rem 

42 

630 

GOTO610 

: rem 

1 05 

640 

AO=AO+l :R% (I) = 0: IFAOl 02THENF% (AF) =P%: AF= 

AF+1:PU= 

PU-1 


00 

: rem 

1 66 

650 

F%=102 : GOTO54 0 

: rem 

226 

660 

IFR%(TL)=0THEN690 

: rem 

206 

670 

TL=TL+1 :IFTL>AWTHENTL=0 

: rem 

241 

680 

GOTO780 

: rem 

1 1 8 

690 

A=FNR(4):R%(TL)=2tA:ONA+1GOTO700,710,720, 

7 30 : rem 

203 

700 

X%(TL)=1:GOTO740 

: rem 

1 29 

710 

X%(TL)=40:GOTO740 

: rem 

1 81 

720 

Y%(TL)=0 : GOTO760 

: rem 

1 33 

730 

Y%(TL)=23:GOTO760 

: rem 

1 87 

740 

IFFNR(2)=1THENY%(TL)=3:GOTO780 

: rem 

33 

750 

Y%(TL)=19:GOTO780 

: rem 

1 96 

760 

IFFNR(2)=1THENX%(TL)=8 : GOTO 780 

: rem 

39 

770 

X%(TL)=33:GOTO780 

: rem 

1 93 

780 

GETA$:IFA$ = ""THEN 8 7 0 

: rem 

97 

790 

A=ASC(A$) :IFA> 64ANDA< 91THENA=A-65 : GOTO 88 0 

: rem 

1 76 

800 

IFA>4 7ANDA< 5 8THENA=A-22 : GOTO 880 

: rem 

96 

810 

IFA=43THENA=36:GOTO880 

: rem 

54 

820 

IFA=92THENA=37: GOTO880 

: rem 

60 

830 

IFA=64THENA=38:GOTO880 

: rem 

61 

840 

IFA=42THENA=39:GOTO880 

: rem 

59 

850 

IFA=45THENA=40:GOTO880 

: rem 

55 

860 

IFA= 61THENA=41 :GOTO880 

: rem 

55 

870 

GOTO920 

: rem 

1 1 5 


880 P%=L%(A):A=PEEK(P%+CL):IF(AANDl5)=2THENA=69:GOTO900 


890 A=2 

900 POKEP%+CL,A 
910 GOTO780 
920 REM 


: rem 
: rem 
: rem 
: rem 
:rem 


221 
81 
1 00 
1 1 4 
1 27 
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930 PRINT"{HOME}{ 22 GIU' }{RVS}{BLK}"SPC(1 8)MID$(TI$,4,1) 
":"RIGHT$(TI$,2)"{HOME}” :rem 236 

940 IFPU<0THENPU=0 :rem 126 

950 PRINT"{HOME}{RVS}{BLK}"SPC(18)RIGHT$("{ 3 SPAZl}"+STR 



$(PU),4) 

: rem 

1 53 

960 

IFPU=0THEN1010 

: rem 

49 

970 

IFFNR(25)ORF%(0)=0THEN990 

: rem 

1 52 

980 

POKEF %(0)+SC %,91 :FORI=0TO8: 

F%(I)=F%(1+1):NEXT:AF= 

AF-1 



: rem 

35 

990 

IFTI-TB>18E3THEN1010 

: rem 

1 61 

1 000 

GOTO350 

: rem 

1 46 

1010 

PRINT"{HOME}{ 7 GIU'}{RVS} [<7>] { 6 DES}{ 4 SPAZljF I 


N E{ 4 SPAZI}G I 0 C 0{ 4 

SPAZI}":FORI=1TO4000: 

NEXT 



: rem 

1 94 

1 020 

IFPU >0THENPRINT"{CLR}{GIU' 

} CE L'HAI FATTA! HAI 

OTTE 


NUTO";PU;"PUNTI": GOT01050 

: rem 

227 

1 030 

PRINT"{CLR}{GIU'} PESSIMO! 

NON SEI RIUSCITO A DIRIGE 


RE" 

: rem 

68 

1 040 

PRINT" IL TRAFFICO NEANCHE 

PER 5 MINUTI." : rem 

1 39 

1 050 

PRINT"{ 2 GIU'}{RVS}{GRN}{ 

9 DES} GIOCHI ANCORA 

(S/N 


) ? " 

: rem 

1 81 

1 060 

GETA$:IFA$="S"THENRUN 

: rem 

50 

1 070 

IFA$="N"THENEND 

: rem 

1 45 

1 080 

GOTOl060 

: rem 

201 


Attenti alla linea! 


Non ci riferiamo alla "linea di programma" o al "numero di linea", ma 
proprio a quella famigerata linea che rischiamo di perdere ogni volta che 
ci concediamo un pranzo troppo abbondante. 

A questo proposito Papersoft Commodore pubblicherà nei prossimi tre 
numeri “Dieta Equilibrata", un programma per C64 e Plus/4 che ti consenti¬ 
rà di sapere se il tipo e il quantitativo di cibo da te consumato giornalmente 
corrisponde alle reali esigenze del tuo organismo, permettendoti quindi 
di "programmare" la tua dieta. 

La Redazione 
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Fallout 


—,— 


CI6*-pius/q. 



All'inizio di questo semplice ma 
appassionante gioco, vedrete sul¬ 
lo schermo delle barrette interrotte 
da alcune fessure. Lo scopo del 
gioco è di riuscire a far passare 
dette pedine , rappresentate da nu¬ 
meri, poste ad di sopra delle barre, 
attraverso le fessure, spostando le 
barrette stesse con dei semplici co¬ 
mandi impostati nel formato xyz, 
dove: 


x è il numero della barretta,- y è la 
direzione dello spostamento 
(S=sinistra - D=destra); 
z è il numero degli spostamenti che 
desiderate la barretta effettui. 

Ad esempio, la mossa 5D3 fa spo¬ 
stare 3 volte verso destra la barret¬ 
ta n. 5. Vince chi fa “cadere " tutti 
i numeri utilizzando il minor nume¬ 
ro di spostamenti possibile. 


10 REM FALLOUT 
20 DIM H(16,8) 

30 PRINT"{CLR}{GRN}" 

40 COLOR4,9,4 :COLORO,2 
50 FORX=OTO16 
60 FORY = 1TO8 
70 H(X,Y)=1 
80 NEXTY,X 
90 REM 

100 FORY = 1TO8 
110 FORB=1T04 
120 X=INT(RND(0)* 16+1) 

130 H(X,Y)=0 
140 NEXTB,Y 

150 REM NUMERAZIONE BARRE 
160 FORB=1TO8 
170 H(2*B-1,0)=B+100 
180 NEXTB 

190 GOSUB610 : REM DISEGNO 
200 GOSUB910 : REM MODIFICA 
210 GOSUB610 : REM DISEGNO 
300 REM 

310 INPUT"{GIU'}MOSSA";Z$ 

320 Y=VAL(LEFT$(Z$,1)) 

330 IFY<10RY>8THEN51 0 
340 D$=MID$ (Z$ ,2,1) 

350 DX=VAL(MID$(Z$,3)) 

360 IFDX=0THEN510 
370 IFD$<>"S"ANDD$<>"D"THEN51 
380 IFD$ = "S"THENGOSUBl110 : REM 
390 IFD$="D"THENGOSUBl210 : REM 




: rem 

92 



:rem 

1 60 



:rem 

229 



: rem 

35 



: rem 

27 



: rem 

239 



: rem 

75 



: rem 

1 32 



: rem 

77 



: rem 

26 



: rem 

0 



: rem 

1 82 



: rem 

119 



: rem 

1 55 



: rem 

51 

. 


: rem 

9 



: rem 

1 96 



: rem 

26 



: rem 

21 6 



: rem 

6 



: rem 

209 



: rem 

119 



: rem 

1 81 



: rem 

218 



: rem 

32 



:rem 

1 96 



: rem 

209 



: rem 

246 



: rem 

1 64 

SCIVOLA 

A 

SINISTRA:rem 

181 

SCIVOLA 

A 

DESTRA :rem 

254 
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400 

BR=BR+1 

: rem 

85 

410 

GOSUB910 

: rem 

1 75 

420 

GOSUB61 0 

: rem 

1 73 

430 

IFSC > = 36THENPRINT"{GIU'}CONGRATULAZIONI, CE 

L'HAI 

FAT 


TA!": END 

: rem 

1 97 

440 

I FDX> 1 THENDX=DX-1 -.GOTO380 

: rem 

66 

500 

REM 

: rem 

1 21 

510 

PRINT"{HOME}{ 11 GIU'}" 

: rem 

53 

520 

FORY=l0TO21 

: rem 

1 23 

530 

PRINT"{ 20 SPAZI}" 

:rem 

1 05 

540 

NEXTY 

: rem 

49 

550 

PRINT"{ 20 SPAZI}"; 

: rem 

1 66 

560 

PRINT"{HOME}{ 11 GIU'}" 

: rem 

58 

570 

GOTO310 

: rem 

1 05 

600 

REM DISEGNO 

: rem 

1 31 

610 

PRINT"{HOME}{GIU'}{ 8 DES}"; 

: rem 

1 75 

620 

FORYl=0TO8 

: rem 

81 

630 

REM 

: rem 

1 25 

640 

IFYl=0THEN PRINT"{ 4 SPAZI}"; 

: rem 

91 

650 

IFYl>0THEN PRINTSPC(8)STR$(Yl);"> "; 

: rem 

61 

660 

FORX=OTO16 

: rem 

82 

670 

Z=H(X,Y1) 

:rem 

219 

680 

GOSUB810 : REM SCRIVE L'ELEMENTO 

: rem 

1 09 

690 

NEXTX 

: rem 

54 

700 

PRINT 

: rem 

36 

710 

NEXTY1 

: rem 

97 

720 

PRINTSPC(4)"{GIU'JPUNTEGGIO:";SC;"{ 3 SPAZI}SPOSTAMEN 


TI :";BR 

:rem 

1 30 

730 

RETURN 

: rem 

1 22 

800 

REM SCRIVE L'ELEMENTO 

: rem 

20 

810 

IFZ=0THENPRINT" "; 

: rem 

42 

820 

IFZ = fTHEN PRINT"{RVS} [<@>] {OFF}"; 

: rem 

1 16 

830 

IFZ>100THEN PRINTCHR$(Z-52); 

: rem 

1 38 

840 

RETURN 

: rem 

1 24 

900 

REM MODIFICA 

: rem 

1 85 

910 

FORYl=8TOOSTEP-1 : REM CERCA DA CIMA A FONDO 

: rem 

191 

920 

FORX=OTOl6 

: rem 

81 

930 

TY =Yl 

: rem 

1 6 

940 

IFH(X,Yl)<100THEN 1020 

: rem 

1 46 

950 

IFTY>= 8THEN 1060:REM FONDO RAGGIUNTO 

: rem 

1 99 

960 

IFH (X,TY + 1 ) OOTHEN 1020:REM BLOCCATO 

: rem 

85 

970 

REM PORTA L'ELEMENTO GIU' 

: rem 

226 

980 

H(X,TY+1)=H(X,TY) 

: rem 

206 

990 

H(X,TY)=0 

: rem 

21 7 

1000 

TY=TY+1 

: rem 

1 80 

1 01 0 

GOTO950 : REM CONTINUA A SPOSTARE 

: rem 

202 

1 020 

NEXTX 

: rem 

90 

1 030 

NEXTYl 

: rem 

1 41 

1 040 

RETURN 

:rem 

1 65 

1050 

REM FONDO RAGGIUNTO 

:rem 

208 

1 060 

SC=SC+H(X,TY)-1 00 

: rem 

227 
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1070 

H(X,TY)=0 



: rem 

255 

1 080 

GOTO!020 



: rem 

197 

11 00 

REM SPOSTA LA BARRA 

A 

SINISTRA 

: rem 

35 

ino 

TM=H(0,Y) 



: rem 

239 

11 20 

FORX=OTO15 



: rem 

1 21 

1 1 30 

H(X,Y)=H(X+l,Y) 



: rem 

74 

1 1 40 

NEXTX 



:rem 

93 

1 1 50 

H (1 6,Y) =TM 



:rem 

42 

1 1 60 

RETURN 



: rem 

1 68 

1200 

REM SPOSTA LA BARRA 

A 

DESTRA 

: rem 

1 22 

1210 

TM=H (1 6 , Y) 



: rem 

39 

1 220 

FORX = 16TO1STEP-1 



: rem 

22 

1 230 

H(X,Y)=H(X-l,Y) 



: rem 

77 

1 240 

NEXTX 



: rem 

94 

1 250 

H(0,Y)=TM 



: rem 

244 

1 260 

RETURN 



: rem 

1 69 


C64g 

Il lupo e ì 5 asnellì 


Nel mondo dei videogiochi può 
accadere di tutto, persino di assi¬ 
stere a degli agnelli che danno la 
caccia ad un povero lupo! Voi im¬ 
personate il lupo, rappresentato 
dal simbolo "V/V/", che all'inizio si 
trova in un angolo della scacchiera 
che appare sul video, mentre il 
computer controlla gli agnelli. Per 
vincere dovete riuscire a mangiare 
tre dei cinque agnelli senza farvi 
catturare. Per mangiare potete 
muovervi, utilizzando i tasti curso¬ 
re, verticalmente ed orizzontal¬ 
mente compiendo il numero di 
passi (da uno a cinque) che il com¬ 
puter vi concede quando è il vo¬ 
stro turno. Se vi viene detto, per 

10 REM IL LUPO E I 5 AGNELLI 
20 DIMB (10,10) , R ( 5 ) , C ( 5 ) , NM ( 5 ) 
25 POKE53280,3 :POKE53281 ,7 
30 C$ (0)="[< 2 +>]" 


esempio, di effettuare tre passi po¬ 
tete farne uno verso l'alto e due 
verso destra. Il movimento degli 
agnelli è leggermente più limitato, 
in quanto essi possono muoversi 
uno per volta e in una sola direzio¬ 
ne, ma non illudetevi, la caccia non 
sarà così facile! Ogni angello è rap¬ 
presentato da una G seguita da un 
numero compreso tra 1 e 5, indi¬ 
cante la distanza che l’agnello in 
questione può coprire muovendo¬ 
si in una delle quattro direzioni 
possibili. Tenete infine presente 
che sia il lupo che gli agnelli posso¬ 
no. mangiare solo se la preda si tro¬ 
va nella casella d’arrivo, e non in 
una di quelle di transito. 

:rem 217 
:rem 3 
:rem 198 
:rem 24 
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40 C$ (1 ) =" { 2 SPAZI }" 

: rem 

206 

50 D$="{HOME}{ 16 GIU'}" 

: rem 

11 3 

60 GOTO2000 

: rem 

97 

1 000 

REM DISEGNA IL CAMPO 

: rem 

165 

1 01 0 

0NCA+2G0T01020,1030,1040 

: rem 

29 

1020 

R=RW:C =CW:TX$ = "WW":GOTO1070 

: rem 

1 95 

1030 

TX$=C$(R+CANDl):GOTOl070 

: rem 

1 36 

1 040 

R=R(GT):C=C(GT) 

: rem 

123 

1 050 

TX$ = "G"+RIGHT$(STR$(NM(GT) ) ,1) 

: rem 

206 

1 060 

CA=GT 

: rem 

35 

1070 

PRINTLEFT$(D$,3+R);TAB(2*C+1);SPC(7) 

;TX$ :rem 

75 

1080 

B(R,C)=CA 

: rem 

222 

1 090 

RETURN 

: rem 

1 70 

11 00 

REM INIZIALIZZA 

: rem 

244 

ino 

REM DISEGNA IL CONTORNO 

: rem 

1 69 

1 1 20 

PRINT"{CLR}{BLU}"; 

: rem 

1 30 

1 1 30 

FORR=1TO10 

: rem 

112 

1 1 40 

FORC=lTOl0 

: rem 

98 

11 50 

CA=0:GOSUBl000 

: rem 

51 

1160 

NEXTC,R 

: rem 

200 

1 1 70 

REM COLLOCA IL LUPO 

:rem 

127 

1180 

RW=1:CW=1:NM=INT(RND(0)*3+1 ) 

: rem 

1 43 

1 1 90 

CA=-1 :GOSUBl 000 

: rem 

1 01 

1 200 

REM COLLOCA GLI AGNELLI 

: rem 

1 24 

1210 

FORGT=lT05 

: rem 

140 

1 220 

R(GT)=INT(RND(0)* 10 + 1) 

:rem 

200 

1 230 

C(GT)=INT(RND(0)*10+1) 

:rem 

1 86 

1 240 

NM (GT)=INT(RND(0)*5+1) 

:rem 

231 

1 250 

IFB (R (GT) ,C (GT) ) O0THEN1220 

: rem 

33 

1 260 

CA=1 :GOSUBl000 

:rem 

54 

1 270 

NEXTGT 

: rem 

1 64 

1 280 

RETURN 

:rem 

1 71 

1 300 

REM MUOVE IL LUPO 

:rem 

9 

1 31 0 

PRINTD$;"{ 11 SPAZI}PUOI FARE"NM"PASSI":IFNM=1THENPR 


INT"{SU}"TAB(27)"O" 

: rem 

1 22 

1 320 

FORDU = 1TONM 

: rem 

242 

1 330 

GETMV$: IFMV$ = ""THEN13 3 0 

: rem 

117 

1340 

: 

: rem 

2 

1 350 

RD=(MV$="{SU}"ANDRW>1)-(MV$="{GIU'}" 

ANDRW<10) 

:rem 

1 61 

1 360 

CD=(MV$="{SIN}"ANDCW>1)-(MV$="{DES}" 

ANDCW<10) 

:rem 

141 

1 370 

TE=B(RW+RD,CW+CD) 

:rem 

22 

1 380 

IFTE< 0ORTE>0ANDDU<NMTHENl330 

: rem 

65 

1 390 

NM(TE)=0 

: rem 

191 

1 400 

SC=SC+SGN(TE) 

: rem 

43 

1410 

R=RW:C=CW 

: rem 

82 

1 420 

CA=0:GOSUBl 000 

: rem 

51 

1 430 

RW=RW+RD:CW=CW+CD 

: rem 

1 1 7 

1440 

CA=-1 :GOSUBl 000 

: rem 

99 
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1 450 

NEXTDU 

: rem 

162 

1 460 

NM=INT(RND(0)* 3+1 ) 

:rem 

253 

1 470 

RETURN 

: rem 

1 72 

1 500 

REM MOSSA DEL COMPUTER 

: rem 

1 1 3 

1 510 

PRINTD$;"{ 13 SPAZI}ORA TOCCA A ME{ 3 SPAZI}" 

: rem 

90 

1 520 

REM VALUTAZIONE 

: rem 

254 

1 530 

MX=-400 

: rem 

108 

1540 

FORGT=1TO 5 

: rem 

1 46 

1 550 

IFNM(GT)=0THENl 600 

: rem 

68 

1 560 

CG=C(GT):RG=R(GT)+NM(GT):GOSUB1800 

:rem 

69 

1 570 

RG=R(GT)-NM(GT):GOSUBl800 

: rem 

24 

1 580 

RG=R(GT):CG=C(GT)+NM(GT):GOSUBl800 

: rem 

71 

1 590 

CG=C(GT)-NM(GT):GOSUB1800 

: rem 

252 

1 600 

NEXTGT 

: rem 

1 61 

1610 

REM MUOVE GLI AGNELLI 

: rem 

1 6 

1620 

C=C(GB):R=R(GB) 

:rem 

91 

1630 

CA=0:GOSUBl000 

: rem 

54 

1 640 

R(GB)=RB:C(GB)=CB 

: rem 

225 

1650 

NM(GB)=INT(RND(0)* 5+1) 

:rem 

218 

1660 

GT=GB 

: rem 

46 

1670 

CA=1:GOSUBl 000 

: rem 

59 

1680 

IFMX<400THENRETURN 

: rem 

226 

1690 

PRINTD$;"{ 15 SPAZI}HAI PERSO.} 5 SPAZI}" 

:rem 

205 

1700 

END 

: rem 

1 59 

1 800 

REM CONTROLLO SITUAZIONE 

: rem 

1 1 6 

1 810 

IFABS(R(GT)-RW)+ABS(C(GT)-CW)=NMTHENSQ=200 

: GOTO!820 



: rem 

1 48 

1 81 5 

SQ = 0 

: rem 

224 

1 820 

IFRG<10RRG>10ORCG<lORCG>l0THENRETURN 

: rem 

1 70 

1 830 

IFB(RG,CG)> 0THENRETURN 

: rem 

1 86 

1 840 

DI=ABS(RW-RG)+ABS(CW-CG) 

:rem 

208 

1 850 

IFDI=0THENSQ = 500:GOTO 1930 

: rem 

60 

1860 

IFDI=NMORDI=NM-2THENRETURN 

:rem 

55 

1870 

IFDI<=5THENSQ=SQ+35 

: rem 

225 

1880 

SQ=SQ-40*((RG=RW)*(CG=CW)) 

:rem 

1 4 

1 890 

FORG=lT05 

: rem 

70 

1900 

SQ=SQ-1 0* ( (RGOR (G) ) + (CGOC (G) ) ) 

: rem 

1 

1910 

NEXT 

: rem 

1 0 

1920 

IFSQ+RND(0)<MXTHENl940 

: rem 

1 09 

1 930 

MX=SQ:GB=GT:RB=RG:CB=CG 

:rem 

24 

1 940 

RETURN 

: rem 

1 74 

2000 

REM PROGRAMMA PRINCIPALE 

: rem 

51 

2010 

GOSUBl100:REM INIZIALIZZA 

: rem 

1 1 3 

2020 

GOSUBl300:REM MUOVE IL LUPO 

: rem 

1 35 

2030 

IFSC=3THEN2060 

: rem 

81 

2040 

GOSUBl500:REM MOSSA DEL COMPUTER 

: rem 

241 

2050 

GOTO2020 

: rem 

1 96 

2060 

PRINTD$;"{ 14 SPAZI}HAI VINTO!!I{ 4 SPAZI} 

" :rem 

1 

2070 

END 

: rem 

1 60 
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Convoglio 



State navigando in un fiume sotter¬ 
raneo che scorre proprio sotto una 
strada di grande importanza stra¬ 
tegica. Il vostro compito è quello 
di fare saltare dei tratti di strada 
per far precipitare nel fiume i ca¬ 
mion nemici (quelli neri). Dovete 
però consentire il passaggio agli 
autocarri alleati (quelli rossi), per 
cui avete anche la possibilità di ri¬ 
parare le falle che voi stessi avete 
aperto nella strada. Per poter com¬ 
piere la vostra missione, avete la 
barca piena zeppa di bombe inne¬ 
scate che esplodono di tanto in 
tanto ; il tempo che manca al pros¬ 


simo scoppio è indicato nella parte 
inferiore sinistra dello schermo. 
Dovete quindi provvedere a piaz¬ 
zare in tempo ogni bomba, oppure 
essa esploderà distruggendo la 
vostra imbarcazione. Il gioco ter¬ 
mina se saltate in aria, se un ca¬ 
mion nero vi sfugge oppure se uno 
rosso precipita nel fiume. Guada¬ 
gnate 50 punti per ogni autocarro 
nemico eliminato. Per muovervi a 
sinistra e a destra usate i tasti l-P, 
mentre la barra spaziatrice serve a 
piazzare le bombe oppure a ripa¬ 
rare le falle nella strada. 


10 PRINT"{CLR}{ 14 SPAZI}{RVS}{YEL} CONVOGLIO { 12 GIU'} 



":POKE53281,11:POKE53280,11 

: rem 

228 

20 

V=53248:POKE2040,192 

: rem 

242 

30 

POKE2041,193 

: rem 

34 

40 

POKE2042,193 

: rem 

36 

50 

POKE2043,!93 

: rem 

38 

60 

POKE2044,193 

: rem 

40 

70 

POKEV+39,11 

: rem 

1 7 

80 

POKEV+40,0 

: rem 

216 

90 

POKEV+41 ,0 

: rem 

21 8 

100 

POKEV+42,0 

: rem 

3 

1 1 0 

POKEV+43,0 

: rem 

5 

120 

FORI = 12288T012 350 :READQ:POKEI,Q:NEXT 

: rem 

242 

1 30 

FORI = 1 2352TO12414 :READQ:POKEI,Q:NEXT 

: rem 

236 

1 40 

FORI=49152T049300:READQ:POKEI,Q:NEXT 

: rem 

249 

1 50 

VL=54296:W= 54 27 6 :A=5427 7:HI = 54273:LW= 

54272 :rem 

65 

160 

POKEV+16,0 

: rem 

1 0 

1 70 

PRINT"{ 6 SPAZI}PER INIZIARE PREMI UN 

TASTO":rem 

86 

1 80 

GETX$:IFX$=""THENl80 

: rem 

1 31 

190 

PRINT"{CLR}"; 

: rem 

57 

200 

FORI=1024TO1263:POKEI,160:POKEI+54272 

,14:NEXT 

: rem 

1 49 

21 0 

FORI = 1 264TO1423 :POKEI,102 :POKEI+ 54272 

,9:NEXT:rem 

1 06 

220 

FORI = l 424TO1583 :POKEI,160 :POKEI + 54 272 

,12:NEXT 

: rem 

1 58 
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230 

FORI=l 584T01 943 :POKEI, 1 60 :POKEI + 54272,6 :NEXT 

: rem 

121 

240 

GOSUBl010 

: rem 

21 6 

250 

POKEV,178 

: rem 

232 

260 

POKEV+1,145 

: rem 

63 

270 

POKEV+21,1 

: rem 

9 

280 

NT=1 :POKEl78,1 :MD = 30:GOSUB580 

: rem 

21 0 

290 

POKEV+30,0:PRINT" {HOME} { 24 GIU'H 5 DES } TEMPO : {HOME} 


"; :POKE56263,7 

: rem 

48 

300 

SYS(49152) 

: rem 

232 

310 

IFFS=0ANDRND(1)<.2THENFL=INT(RND(1)*5+5):FS= 

1 : TI$ 

= "00 


0000" 

: rem 

58 

320 

GOSUBl030 

: rem 

217 

330 

SYS(49206):IF(PEEK(V+21)AND30)=0THENJ=1:GOSUB630 




: rem 

60 

340 

IFPEEK(181)<>1THEN360 

: rem 

1 69 

350 

IFC(PEEK(178))=0THEN930 

: rem 

9 

360 

SYS(49152):K=PEEK(178) 

:rem 

1 98 

370 

XP=PEEK(V+2*K)+2 t(8-K)*(PEEK(V+l6)AND2tK) :C = 

INT(XP/8) 



: rem 

1 01 

380 

IFPEEK(1304+C)=160ANDPEEK(1302+C)=160ANDPEEK(1303+C)= 


160THENGOSUB830 

: rem 

1 51 

390 

K=PEEK ( 1 97) : IFK060THEN430 

: rem 

245 

400 

XP=PEEK(V)+256*(PEEK(V+l6)ANDl):PC=INT((XP-11)/8) 




:rem 

31 

41 0 

IFPEEK(1384+PC)<>160ANDBS=0THENGOSUB810:GOTO430 




: rem 

96 

420 

IFPEEK(1384+PC)=160THENGOSUB470 

: rem 

71 

430 

SYS(49152):IFFS=1ANDBS=0ANDINT(TI/60)>FLTHEN890 




: rem 

1 1 4 

440 

IFBS = 1 ANDINT(TI/60)>FLTHENGOSUB68 0 

: rem 

1 36 

450 

IFRND(1)<.02+SC/l0000THENGOSUB580 

: rem 

1 35 

460 

GOTO300 

: rem 

1 02 

470 

IFPC< 3THEN520 

: rem 

242 

480 

IFPO36THEN550 

: rem 

46 

490 

FORJ=l264T01384STEP40:FORK=PC-2TOPC+2 

: rem 

25 

500 

IFPEEK(J+K)=160THENPOKEJ+K,102 :POKEJ+K+54272 

,9 




: rem 

200 

510 

NEXT:NEXT:RETURN 

: rem 

1 04 

520 

FORJ=l264T01384STEP40:FORK=OTOPC 

:rem 

244 

530 

IFPEEK(J+K)=160THENPOKEJ+K,102 :POKEJ+K+54272 

,9 




: rem 

203 

540 

NEXT:NEXT:RETURN 

: rem 

1 07 

550 

FORJ=l264T01384STEP40:F0RK=37T039 

: rem 

1 0 

560 

IFPEEK(J+K)=160THENPOKEJ+K,102 :POKEJ+K+54272 

,9 




: rem 

206 

570 

NEXT:NEXT:RETURN 

: rem 

110 

580 

J = 0: FORI = 1T04:IF(PEEK(V+21)AND211)=0THENJ = I 

: rem 

143 

590 

NEXT 

: rem 

221 

600 

IFJ=0THENRETURN 

:rem 

235 

610 

TE=(PEEK(V+21)AND30) 

: rem 

78 
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Ecco come riconoscere un vero programma 
Leoni informatica 




Quando per il tuo 
home computer il negoziante 
ti offre un programma a basso costo, dif¬ 
fidane. Nella quasi totalità dei casi si tratta di una 
copia duplicata che per di più può non girare bene Le 
conseguenze, specialmente se si tratta della tua contabilità, sono 
facilmente immaginabili Leoni Informatica, Azienda leader, fa programmi 
da sempre, e da sempre è sinonimo di altissima qualità Riconoscere questi 
programmi è facile. La classica confezione bianca e blu è accuratamente si¬ 
gillata AU'interno. allegate al floppy disk, vi sono le istruzioni in italiano e, cosa 
importantissima, la cartolina di garanzia Inoltre Leoni Informatica è stata la 
prima in Italia ad offrire la garanzia a vita, l'assistenza ed il continuo aggiorna¬ 
mento dei suoi programmi; ed oggi, sempre all'avanguardia, produce i software 
MSX, compatibili con tutti i più importanti Personal Computer 
Al tuo negoziante chiedi quindi la qualità, l'assistenza e l'aggiornamento: chie 
di i programmi Leoni Informatica. 
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Leoni Informatica non ti abbandona mai 


= Leoni informatica 


Leoni informatica S.r.l. - Sviluppo Software 
Via Valsolda. 21 -20143 Milano - Tel 02-8467378-8465072 


Potete trovare i nostri programmi in tutta Italia nei punti vendita Buffetti 
e dai rivenditori autorizzati che espongono il nostro marchio. 


BES Milano 










620 XP=PEEK(V+2*NT)+2t(8-NT)*(PEEK(V+l6)AND2 TNT) :IF326-XP 


<MDANDTEOOTHENRETURN treni 142 

630 NT=J:POKEV+2*NT,70 :POKEV+16, PEEK(V+l6)OR2 tNT:POKEV+2* 



NT+1,80 

: rem 

195 

640 

IFRND(1)<.6THENC(NT)=0:GOTO660 

: rem 

1 6 

650 

C(NT)=2 

: rem 

64 

660 

POKEV+39+NT,C(NT):POKEV+21,PEEK(V+21)OR2fNT 

: rem 

141 

670 

RETURN 

: rem 

1 25 

680 

GOSUBl070 

: rem 

230 

690 

FS = 0:POKEl 424+BP,160 :BS = 0:IFBP=39THEN750 

: rem 

100 

700 

IFBP=0THEN780 

: rem 

243 

710 

FORJ = 1264 TO1 384STEP40:FORK=BP-1TOBP+1 

: rem 

16 

720 

POKEJ+K,160 :POKEJ+K+54272,1 2 :NEXT:NEXT 

: rem 

36 

730 

POKEVL,0 :POKEA,0 :POKEW,0 

: rem 

233 

740 

RETURN 

: rem 

1 23 

750 

FORJ=1264T01384STEP40:F0RK=37T039 

: rem 

1 2 

760 

POKEJ+K,160 :POKEJ+K+54272,1 2:NEXT:NEXT 

: rem 

40 

770 

GOTO730 

: rem 

1 1 3 

780 

FORJ = 1264T01384STEP40:FORK=OTO2 

: rem 

1 55 

790 

POKEJ+K,160:POKEJ+K+54272,12:NEXT:NEXT 

: rem 

43 

800 

GOTO730 

: rem 

1 07 

810 

BS=1:BP=PC:POKEl424+PC,209 

: rem 

241 

820 

RETURN 

: rem 

1 22 

830 

FORY=80TOl55STEP3 

: rem 

45 

840 

SYS(49152):POKEV+2*K+1,Y:IF(PEEK(V+30)AND(1+2tK)) 

OOT 


HEN930 

: rem 

1 67 

850 

GOSUBl030:NEXT 

: rem 

90 

860 

IF(PEEK(V+39+K)ANDl5)=2THEN930 

: rem 

202 

870 

SC=SC+50:GOSUBl010:POKEV+21,PEEK(V+21)AND(255-2tK) 



: rem 

1 75 

880 

GOSUB580:RETURN 

: rem 

21 5 

890 

FORI=15TO0STEP-1:POKEl2288+INT(RND(1)*62),INT(RND(1)* 


128) 

: rem 

65 

900 

POKEVL,I :POKEW,129:POKEA,15 :POKEH1,40:POKELW 

,200: 

NEXT 



: rem 

1 1 2 

910 

POKEW,0:POKEA,0 

: rem 

1 30 

920 

FORT=1TO1 0 0 0 :NEXT 

: rem 

33 

930 

POKE53281 ,0 :POKE53 280,0 :PRINT"{CLR}{ 14 SPAZl}{RVS} 


{CYN} FINE GIOCO " 

:rem 

21 1 

940 

POKEV+21,0 

: rem 

1 2 

950 

PRINT"{ 9 GIU'}{ 8 SPAZI}IL TUO PUNTEGGIO E' 

" ; SC 




: rem 

1 32 


960 PRINT" [<1 > ] { 3 GIU'H 10 SPAZI }GIOCHI ANCORA (S/N)? 

f flTTT • \ H • v am O 


{GIU'}" 

: rem 

252 

970 GETX$:IFX$=""THEN970 

:rem 

1 45 

980 IFX$="S"THENRUN 

: rem 

1 64 

990 IFX$="N"THENEND 

: rem 

1 30 

1000 GOTO970 

: rem 

1 54 

1010 PRINT" { 24 GIU'H 24 

DES}(YEL)PUNTI:";SC;"{HOME} 

Il • 

/ 


: rem 

233 

1020 RETURN 

: rem 

163 


26 


1 030 

1 040 

1050 

1 060 

1 070 

1080 

1090 

1 1 00 

mo 

1 1 20 

1 1 30 

1 1 40 

1 1 50 

1 1 60 

1 1 70 

1 1 80 

1 1 90 

1 200 

1210 

1 220 


I=FL-INT(TI/60):IFI<0THENI=0 
IFFS*=OTHENPOKEl 996,32 : RETURN 
POKEl996,48+1 
RETURN 


;rem 218 
:rem 60 
:rem 218 
:rem 167 


POKEVL,15 : POREA,15:POKEW,l29 :POKEH1,40 :POKELW,200 

:rem 67 

RETURN : rem 169 

DATA0,24,0,0,60,0,0,24,0,1 ,24,1 28,0,1 89,0,0,90,0,0,2 
4,0,0,24,0,0,36,0 :rem 0 

DATA0,66,0,255,255,255,255,255,254,127,255,252,127,2 
55,252,63,255,248 :rem 124 

DATA63,255,248,15,255,224,7,255,192,0,0,0,0,0,0,0,0, 
0 :rem 37 

DATAO,255,255,0,255,255,0,248,1 27,0,240,1 27,0,231 ,1 5 
,62,207,15,126,207,31 :rem 15 

DATA254,207,255,254,207,31 ,255,207,1 5,255,231 ,1 5,255 
,240,127,255,248,127 :rem 6 

DATAI 27,2 55,255,60,255,2 55,60,255,255,56,60,120,24,2 
4,48,0,0,0,0,0,0,0,0,0 :rem 46 

DATAI 6 5,1 97,201 ,33,208,22,56,1 73,0,208,233,4,1 41 ,0,2 
08,201,252,144,8,173 :rem 237 

DATAI 6,20 8,41 ,254,141 ,16,208,96,201 ,41 ,208,251 ,24,17 
3,0,208,105,4,141,0 :rem 178 

DATA208,201 ,4,1 76,8,1 73,16,208,9,1 ,141 ,16,208,96 

:rem 98 

DATAI 69,0,1 33,1 81 ,230,1 78,165,1 78,201,5,208,4,169,1 , 
133,178,170,189,141 :rem 220 

DATAI 92,1 33,1 79,1 65, 1 78,1 0,1 70,1 73,21 ,208,37,1 79,240 
,227,56,189,0,208 :rem 133 

DATA233,5,1 57,0,208,201 ,251,144,11,169,255,56,229,17 
9,45,16,208,141,16 :rem 155 

DATA208,165,179,45,16,208,208,22,189,0,208,201,3,176 
,15,169,255,56,229 :rem 175 

DATAI 79,45,21 ,208,1 41 ,21 ,208,1 69,1 ,1 33,1 81 ,96,0,2,4, 
8,16,32,64,128 :rem 205 


27 




Caccia allo squalo 



Questa volta il vostro C64 vi porta 
in mezzo all'oceano a bordo di 
una barca attrezzatissima per la 
caccia allo squalo. Avete infatti a 
disposizione, oltre a un moderno 
fucile anti-squalo, un potente so¬ 
nar che vi permette di localizzare 
con molta precisione la presenza 
del pescecane. Più il suono è acu¬ 
to, più la preda è vicina,- quando 
pensate di essere ad una distanza 
favorevole potete sparare una o 
più volte. Per dirigere la barca do¬ 
vete utilizzare i tasti cursore,- la di¬ 
rezione in cui la barca si muove 
viene visualizzata tramite i caratteri 


A (avanti), I (indietro), D (destra) 
e S (sinistra). Per sparare usate la 
barra spaziatrice. Fate attenzione a 
non allontanarvi troppo dall’obiet¬ 
tivo e a non sprecare l'energia di 
cui disponete: essa infatti serve a 
far funzionare sia il sonar che il fu¬ 
cile anti-squalo. La caccia termina 
se colpite il pescecane, se perdete 
il contatto con lui oppure se esauri¬ 
te l’energia. Dopo ogni partita vi 
viene assegnato un punteggio vari¬ 
abile tra 0 e 100, dipendente dalla 
distanza da cui avete fatto fuoco 
e dal fatto che abbiate colpito o 
meno lo squalo. Buona caccia! 


10 REM "CACCIA ALLO SQUALO* 


:rem 

42 

20 DIMX$(2),Y$(2),TU(3,8),CO$(2) 


:rem 

1 37 

30 D$="{HOME}{ 15 GIU'}" 


:rem 

94 

40 SID = 54272:POKE53 280,6 :POKE53281 ,0 

: rem 

26 

50 FORI = 0TO23:POKESID + 1, 0 :NEXT:POKESID+24, 

15 :POKESID+5 

,15 

:POKESID+6,255 


: rem 

1 81 

60 NG=0:MR=0 


: rem 

1 74 

70 FORRE=0TO2: 


: rem 

97 

80 READX$(RE),Y$(RE) 


: rem 

121 

90 NEXT 


: rem 

1 68 

1 00 DATA"{RVS}S{OFF}","{RVS}A{OFF}","","" f 

"{RVS}D{OFF} 

Il II 

r 

{RVS}I{OFF}" 


: rem 

208 

110 REM "SUONO* 


: rem 

94 

120 FORTU=lT03 


: rem 

103 

130 FORNO = ITO8 


: rem 

97 

140 READTU(TU, NO) 


:rem 

29 

150 NEXTNO, TU 


:rem 

71 

160 DATA40,60,40,60,40,50,60,60 


: rem 

1 4 

170 DATA30,35,40,45,50,55,60,60 


: rem 

25 

180 DATA35,32,30,27,25,22,20,20 


: rem 

1 5 

190 CO$(0)="PECCATO, SEI ANDATO 

TROPPO LONTANO" :rem 

20 

200 CO$(1)="COMPLIMENTI, LO HAI 

COLPITO!!" 

: rem 

1 29 

210 CO$(2)="HAI TERMINATO TUTTA 

L'ENERGIA" 

: rem 

210 

220 GOTO!080 


:rem 

1 50 

230 REM *BEEP* 


: rem 

233 

240 POKESID+4,17:POKESID+1,TN 


: rem 

1 1 


28 








250 

260 

270 

280 

290 

300 

31 0 

320 

330 

340 

350 

360 

370 

380 

390 

400 

41 0 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 


FORT=ITOTM 

: rem 

1 32 

FORDL=lTO10 :NEXTDL 

: rem 

1 38 

NEXTT 

: rem 

44 

RETURN 

: rem 

1 22 

REM *INIZIALIZZAZIONE* 

: rem 

166 

NG=NG+1: 

: rem 

1 44 

SX = INT(70*RND(0) ) -20 

: rem 

61 

SY=INT(70*RND(0) ) -20 

: rem 

63 

DI=ABS(SX)+ABS(SY):IFDI<50THEN310 :rem 

234 

MD=DI:SD=DI 

: rem 

141 

EN=300:SH=0:HI=0:NS=0 

: rem 

1 89 

VX=0;VY=0 

: rem 

1 0 

RETURN 

: rem 

1 22 

REM *INPUT VELOCITA’* 

: rem 

225 

GETK$ 

: rem 

235 

VX = 4* ( (K$ = "{SIN}")-(K$ = "{DES}" 

) ) : rem 

1 51 

VY=4*((K$="{SU}")-(K$="{GIU'}" 

)) : rem 

129 

SH=(K$=" ") 

: rem 

175 

RETURN 

: rem 

119 

REM *CALCOLO DISTANZA* 

: rem 

43 

SX=SX-VX 

: rem 

7 

SY=SY-VY 

:rem 

1 1 

EN=EN+ (VXOO) + (VYOO)-l 

: rem 

5 

IFEN<=0THENEN=0:GOTO600 

:rem 

1 59 

REM *ALLONTANAMENTO SQUALO* 

: rem 

1 99 

SX=SX+SGN(SX) 

:rem 

55 

SY=SY+SGN(SY) 

:rem 

59 

DI=ABS(SX)+ABS(SY) 

:rem 

49 

IFDI<MDTHENMD=DI 

: rem 

1 1 

IFDI>100THEN600 

: rem 

73 

IFNOTSHTHEN600 

: rem 

1 22 

NS=NS+1 

: rem 

118 

EN=INT(EN-.5*DI) 

: rem 

130 

IFEN<=0THENEN=0:GOTO600 

: rem 

1 60 

HI = INT(DI*RND ( 0) ) < = 1 

: rem 

1 10 

RETURN 

: rem 

1 1 8 

REM ‘OUTPUT* 

: rem 

192 

GOSUBl030 

: rem 

220 

PRINTLEFT$(D$,8);TAB(SGN(VX)+19);X$(SGN(VX)+1 ) ; 



: rem 

247 

PRINTLEFTS(D$ , 8+SGN(VY) ) ;TAB(19);Y$(SGN(VY)+1 ); 



: rem 

251 

IFSHTHENTM = 2 : TN = 10 : GOSUB230 : GOTO670 :rem 

221 

TM=1:TN=140-DI:GOSUB230 

: rem 

98 

PRINT"{HOME}{GIU'}";TAB(15) ; EN 

'"{SIN} UNITA' 


{ 2 SPAZI}" 

: rem 

1 78 

RETURN 

:rem 

1 26 

REM ‘SCHERMO* 

: rem 

232 

PRINT"{CLR}{GIU' }{ YEL }"; SPC ( 7 ) 

"ENERGIA:"EN"UNITA ' 

II 


: rem 

75 


29 


710 

PRINTLEFT$(D$,15);SPC(4)"PER MUOVERTI USA 

I TASTI 

CUR 


SORE" 

:rem 

229 

720 

PRINT"{ 2 DES}PER SPARARE USA LA BARRA SPAZIATRICE" 



: rem 

1 82 

730 

GOSUBl030 

: rem 

222 

740 

PRINTLEFT$(D?,8);SPC(7)"DIREZIONE" 

: rem 

42 

750 

PRINT"{HOME}{ 2 GIU'}";SPC(7)"<RETURN>{ 2 

SPAZI}PER I 


NIZIARE" 

:rem 

43 

760 

GETAN$:IFAN$< >CHR$(1 3)THEN760 

: rem 

168 

770 

PRINT"{HOME}{ 2 GIU'}";SPC{7)"{ 22 SPAZI}" 

:rem 

1 45 

780 

RETURN 

:rem 

1 27 

790 

REM *FINE PARTITA* 

: rem 

1 5 

800 

PRINT"{HOME}{GIU'}";SPC(4);CO$(CA-1) 

:rem 

87 

810 

FORNO=ITO8 

: rem 

102 

820 

TN=TU(CA,NO) :TM = 10 :GOSUB230 

: rem 

1 36 

830 

NEXT 

: rem 

21 8 

840 

POKESID+4,0 

: rem 

1 02 

850 

PRINT"{CLR}{GIU' }POSIZ. INIZIALE:"; SD ;TAB(20) ;"M" 




: rem 

1 99 

860 

PRINT"NUMERO DI COLPI:";NS 

: rem 

95 

870 

PRINT"POSIZ. FINALE:{ 2 SPAZI}";MD;TAB(20) 

; "M" 




: rem 

121 


880 IFHITHENPRINT"COLPITO DA:{ 5 SPAZI}";DI;TAB(20);"M" 




:rem 

242 

890 

IFHITHENRE= 50+EN/4+SD/10 : GOTO 910 

: rem 

1 69 

900 

RE= 50-DI/2 

: rem 

237 

910 

RE=INT(RE) 

:rem 

65 

920 

IFRE>100THENRE=100 

: rem 

36 

930 

IFRE< 0THENRE= 0 

: rem 

97 

940 

TR=TR+RE 

: rem 

232 

950 

IFRE>MRTHENMR=RE 

: rem 

67 

960 

PRINT"{ 2 GIU'}SITUAZIONE" 

: rem 

1 57 

970 

PRINT"{ 10 E}" 

: rem 

35 

980 

PRINT"NUMERO DI PARTITE :";NG 

: rem 

248 

990 

PRINT"PUNTEGGIO ATTUALE:RE 

: rem 

65 

1 000 

PRINT"MEDIA:{ 12 SPAZI}";INT(TR/NG) 

: rem 

13 

1 01 0 

PRINT"RECORD :{ 11 SPAZI}";MR 

: rem 

102 

1020 

RETURN 

: rem 

163 

1030 

REM *SPAZI VUOTI* 

: rem 

26 

1 040 

PRINTLEFT$(D$,7);TAB(18){ 3 SPAZI}" 

:rem 

8 

1050 

PRINTTAB(1 8) ;"{ 3 SPAZI}" 

: rem 

99 

1060 

PRINTTAB(18);"{ 3 SPAZI}" 

: rem 

1 00 

1070 

RETURN 

: rem 

168 

1080 

REM *PROGRAMMA PRINCIPALE* 

: rem 

1 42 

1 090 

GOSUB290 

: rem 

229 

1 1 00 

GOSUB690 

: rem 

225 

ino 

GOSUB38 0 

: rem 

222 

1120 

GOSUB440 

: rem 

220 

1 1 30 

GOSUB610 

: rem 

220 

1140 

CA=-3*(EN=0)-2*HI-(DI>1 00 ) 

:rem 

86 


30 




1150 IFCA=0THENl110 
1160 GOSUB790 
1170 PRINT 

1180 FORI = 1TO10 :GETK$:NEXT 

1190 PRINT"{GIU'}UN'ALTRA PARTITA (S/N)?" 

1 200 GETAN $ : IFAN $ = ""THEN12 00 

1210 IFAN$="S"THEN1090 

1220 IFAN$<>"N"THEN1200 

1230 END 


'rem 

57 

rem 

232 

rem 

86 

rem 

1 1 0 

rem 

96 

rem 

69 

rem 

21 1 

rem 

5 

rem 

1 57 



31 






























